home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / General Interest / US Time / card_3627.txt < prev    next >
Encoding:
Text File  |  1990-08-01  |  5.7 KB  |  307 lines
  1. -- card: 3627 from stack: in
  2. -- bmap block id: 2567
  3. -- flags: 0000
  4. -- background id: 3241
  5. -- name: US time zones
  6. ----- HyperTalk script -----
  7. on idle
  8.   global tick
  9.   global whichZone
  10.   put the long time into tick
  11.   put last word of card field "Zone" into whichZone
  12.  
  13.   if whichZone is "Pacific" then
  14.     placeTime
  15.   end if
  16.  
  17.   if whichZone is "Mountain" then
  18.     subtractTick
  19.     placeTime
  20.   end if
  21.  
  22.   if whichZone is "Central" then
  23.     subtractTick
  24.     subtractTick
  25.     placeTime
  26.   end if
  27.  
  28.   if whichZone is "Eastern" then
  29.     subtractTick
  30.     subtractTick
  31.     subtractTick
  32.     placeTime
  33.   end if
  34.  
  35. end idle
  36.  
  37. on subtractTick
  38.   global tick
  39.   convert tick to seconds
  40.   subtract 3600 from tick
  41.   convert tick to long time
  42. end subtractTick
  43.  
  44. on addTick
  45.   global tick
  46.   convert tick to seconds
  47.   add 3600 to tick
  48.   convert tick to long time
  49. end addTick
  50.  
  51. on placeTime
  52.   global tick
  53.   put tick into card field "Pacific"
  54.   addTick
  55.   put tick into card field "Mountain"
  56.   addTick
  57.   put tick into card field "Central"
  58.   addTick
  59.   put tick into card field "Eastern"
  60. end placeTime
  61.  
  62. on mouseUp
  63.   visual effect scroll down
  64.   go back
  65. end mouseUp
  66.  
  67.  
  68.  
  69.  
  70. -- part 11 (field)
  71. -- low flags: 01
  72. -- high flags: 0004
  73. -- rect: left=1 top=108 right=124 bottom=88
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 3
  78. -- text size: 9
  79. -- style flags: 0
  80. -- line height: 12
  81. -- part name: 
  82.  
  83.  
  84. -- part 2 (field)
  85. -- low flags: 01
  86. -- high flags: 0004
  87. -- rect: left=1 top=121 right=138 bottom=88
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 3
  92. -- text size: 9
  93. -- style flags: 0
  94. -- line height: 12
  95. -- part name: Pacific
  96.  
  97.  
  98. -- part 12 (field)
  99. -- low flags: 01
  100. -- high flags: 0004
  101. -- rect: left=112 top=118 right=134 bottom=198
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 3
  106. -- text size: 9
  107. -- style flags: 0
  108. -- line height: 12
  109. -- part name: 
  110.  
  111.  
  112. -- part 6 (field)
  113. -- low flags: 01
  114. -- high flags: 0004
  115. -- rect: left=112 top=131 right=148 bottom=198
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 3
  120. -- text size: 9
  121. -- style flags: 0
  122. -- line height: 12
  123. -- part name: Mountain
  124.  
  125.  
  126. -- part 13 (field)
  127. -- low flags: 01
  128. -- high flags: 0004
  129. -- rect: left=236 top=133 right=149 bottom=322
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 3
  134. -- text size: 9
  135. -- style flags: 0
  136. -- line height: 12
  137. -- part name: 
  138.  
  139.  
  140. -- part 14 (field)
  141. -- low flags: 01
  142. -- high flags: 0004
  143. -- rect: left=414 top=226 right=242 bottom=500
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 3
  148. -- text size: 9
  149. -- style flags: 0
  150. -- line height: 12
  151. -- part name: 
  152.  
  153.  
  154. -- part 7 (field)
  155. -- low flags: 01
  156. -- high flags: 0004
  157. -- rect: left=236 top=146 right=163 bottom=322
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 3
  162. -- text size: 9
  163. -- style flags: 0
  164. -- line height: 12
  165. -- part name: Central
  166.  
  167.  
  168. -- part 8 (field)
  169. -- low flags: 01
  170. -- high flags: 0004
  171. -- rect: left=414 top=239 right=256 bottom=500
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 3
  176. -- text size: 9
  177. -- style flags: 0
  178. -- line height: 12
  179. -- part name: Eastern
  180.  
  181.  
  182. -- part 9 (field)
  183. -- low flags: 00
  184. -- high flags: 0004
  185. -- rect: left=141 top=323 right=339 bottom=354
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 3
  190. -- text size: 9
  191. -- style flags: 16384
  192. -- line height: 12
  193. -- part name: Zone
  194.  
  195.  
  196. -- part 15 (button)
  197. -- low flags: 00
  198. -- high flags: 0000
  199. -- rect: left=1 top=108 right=139 bottom=89
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: 
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   put "Pacific" into last word of card field "Zone"
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 16 (button)
  216. -- low flags: 00
  217. -- high flags: 0000
  218. -- rect: left=111 top=118 right=149 bottom=199
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: 
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   put "Mountain" into last word of card field "Zone"
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 17 (button)
  235. -- low flags: 00
  236. -- high flags: 0000
  237. -- rect: left=235 top=133 right=164 bottom=323
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: 
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   put "Central" into last word of card field "Zone"
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 18 (button)
  254. -- low flags: 00
  255. -- high flags: 0000
  256. -- rect: left=413 top=225 right=256 bottom=501
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: 
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   put "Eastern" into last word of card field "Zone"
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part contents for card part 2
  273. ----- text -----
  274. 6:17:14 PM
  275.  
  276. -- part contents for card part 9
  277. ----- text -----
  278. Your time zone is:  Central
  279.  
  280.  
  281. -- part contents for card part 6
  282. ----- text -----
  283. 7:17:14 PM
  284.  
  285. -- part contents for card part 7
  286. ----- text -----
  287. 8:17:14 PM
  288.  
  289. -- part contents for card part 8
  290. ----- text -----
  291. 9:17:14 PM
  292.  
  293. -- part contents for card part 14
  294. ----- text -----
  295. Eastern
  296.  
  297. -- part contents for card part 13
  298. ----- text -----
  299. Central
  300.  
  301. -- part contents for card part 11
  302. ----- text -----
  303. Pacfic
  304.  
  305. -- part contents for card part 12
  306. ----- text -----
  307. Mountain